home *** CD-ROM | disk | FTP | other *** search
/ Ahoy 1987 March / Ahoy_Magazine_87-03_1987_Double_L.d64 / Series Sequence (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  362b  |  10 lines
  1. 0 print"[147]":poke53280,0:poke53281,0:poke646,1:printtab(12)"series sequence"
  2. 1 rem commodares problem #35-2:
  3. 2 rem     series sequence
  4. 3 rem solution by
  5. 4 rem     keith kushner
  6. 5 rem
  7. 10 y=7:x=int(y/2)+1:z=2^y-1:fort=0toz:b$="":w=0:c=t:forv=1toy:b=c:b=b/2:c=int(b)
  8. 20 c$=str$(b>c):b$=right$(c$,1)+b$:w=w-(b>c):nextv:on-(w=x)gosub30:nextt:end
  9. 30 w=0:foru=1toy:q=val(mid$(b$,u,1)):printchr$(-(w<x)*(76+11*q));:w=w+q:nextu:print:return
  10.